home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / util3 / loclpl20.lha / WFMH_LocalePL_v2.0 / Instaluj_LocalePL < prev    next >
Text File  |  1996-01-29  |  57KB  |  1,704 lines
  1. ;
  2. ;                     LocalePL © 1994-1996 Marcin Orlowski
  3. ;
  4. ;           ---------------------------------------------------------
  5. ;
  6. ;              ###    ###    #########  ###    ###    ###    ###
  7. ;              ###    ###    ###        ####  ####    ###    ###
  8. ;              ###    ###    ###        ### ## ###    ###    ###
  9. ;              ###    ###    ########   ### ## ###    ##########
  10. ;              ### ## ###    ########   ###    ###    ##########
  11. ;              ### ## ###    ###        ###    ###    ###    ###
  12. ;              ####  #### ## ###     ## ###    ### ## ###    ### ##
  13. ;              ###    ### ## ###     ## ###    ### ## ###    ### ##
  14. ;
  15. ;           ---------------------------------------------------------
  16. ;
  17. ;                       Mental Pictures Developed Here
  18. ;
  19. ;                              Marcin Orlowski
  20. ;                              ul. Radomska 38
  21. ;                              71-002 Szczecin
  22. ;
  23. ;              SilverDream!'s BBS:  +48 (0)91-540431  (24h non-stop)
  24. ;              GlobalNet         :  52:4800/6
  25. ;              FidoNet           :  2:481/22.2
  26. ;              MAXsNET           :  86:30042/203
  27. ;
  28. ;              Internet:               carlos@felix.univ.szczecin.pl
  29. ;              WWW Page:   dedal.man.szczecin.pl/~carlos/carlos.html
  30. ;
  31. ;
  32. ;--------------------------------------------------------------------
  33. ;
  34. ;                       W.F.M.H. LocalePL Installer
  35. ;
  36. ;                MR SOFT /  WORLD FEDERATION OF MAD HACKERS
  37. ;
  38. ;--------------------------------------------------------------------
  39. ;
  40. ; $VER: WFMH LocalePL v2.0+ Skrypt instalacyjny
  41. ;
  42. ;--------------------------------------------------------------------
  43.  
  44. (set __version  2)
  45. (set __revision 0)
  46. (set __date "15.01.1996")
  47.  
  48. ;###########################################################################
  49. ;## Przygotowanie...
  50. ;###########################################################################
  51.  
  52. (set WedgeHelp
  53.        (cat   "  Pare slow na temat programu AssignWedge. "
  54.               "Po jego uruchomieniu, w przypadku odwolania "
  55.               "do nieistniejacego urzadzenia, zamiast "
  56.               "standardowego, systemowego requestera pojawi "
  57.               "sie okno zawierajace dodatkowe gadzety dzieki "
  58.               "ktorym bez klopotow bedzie mozna owo urzadzenie "
  59.               "(np: RAD, CD0) zamontowac lub przypisac mu dowolny "
  60.               "katalog.\n\n"
  61.               "  Konwertery tekstu PrintIt 1.1 oraz APC 2.0.\n"
  62.               "Poniewaz do kazdego z programów dolaczona jest instrukcja "
  63.               "obslugi zatem od razu odsylam do niej.\n"
  64.        )
  65. )
  66.  
  67. (set LSortHelp
  68.   (cat  "\n  LSort to program sortujacy pliki tekstowe "
  69.         "z wykorzystaniem funkcji systemu operacyjnego, "
  70.         "konkretnie locale.library, co pozwala na poprawne "
  71.         "sortowanie zgodnie zasadami danego jezyka.\n"
  72.         "  LSort zainstalowany zostanie w katalogu C: "
  73.         "Szczególowa dokumentacja zostanie zaistalowana "
  74.         "razem z nim.\n\n"
  75.   )
  76. )
  77.  
  78.  
  79. (set @abort-button "Przerwij Instalacje")
  80.  
  81. (set OS_Version (/ (getversion "LIBS:locale.library") 65536))
  82. (if (< OS_Version 37)
  83.        (abort  "\n\n\nAby wykorzystac pakiet W.F.M.H. LocalePL\n"
  84.               "niezbedny jest co najmniej Kickstart 2.1!"
  85.        )
  86. )
  87.  
  88. (copyfiles
  89.     (source "c/UnLzX")
  90.    (nogauge)
  91.     (dest "RAM:")
  92. )
  93.  
  94.  
  95. (onerror
  96. (run "c/FixTaskName2" (safe))
  97.   (if (= (exists "RAM:UnLzX" (noreq)) 1)
  98.    (delete "RAM:UnLzX" (safe))
  99.   )
  100.  
  101.  
  102.   (run "c/WaitPort" (safe))
  103.   (delete "RAM:describe" (safe))
  104.   (delete "RAM:sync" (safe))
  105.   (delete "RAM:Info.bat" (safe))
  106.   (delete "RAM:Locale1.iff" (safe))
  107.   (delete "RAM:Locale2.iff" (safe))
  108.   (delete "RAM:Locale3.iff" (safe))
  109.   (delete "RAM:Locale4.iff" (safe))
  110.   (delete "RAM:Locale5.iff" (safe))
  111.   (delete "RAM:Locale6.iff" (safe))
  112.   (delete "RAM:Locale7.iff" (safe))
  113.   (delete "RAM:Locale8.iff" (safe))
  114.  
  115. )
  116.  
  117. ;###########################################################################
  118. ;## De szou mast gou on...
  119. ;###########################################################################
  120.  
  121. (run "RAM:UnLzX >nil: x -m Info/Info.lzx #? RAM:" (safe))
  122. (run "c/FixTaskName" (safe))
  123. (run "RAM:sync SCRIPT=Info.bat" (safe)) ;describe © Dietmar Eilert
  124.  
  125. (complete 0)
  126.  
  127. (welcome
  128.        "\n"
  129.        " ###    ###    #########  ###    ###    ###    ###\n"
  130.        " ###    ###    ###        ####  ####    ###    ###\n"
  131.        " ###    ###    ###        ### ## ###    ###    ###\n"
  132.        " ###    ###    ########   ### ## ###    ##########\n"
  133.        " ### ## ###    ########   ###    ###    ##########\n"
  134.        " ### ## ###    ###        ###    ###    ###    ###\n"
  135.        " ####  #### ## ###     ## ###    ### ## ###    ###\n"
  136.        " ###    ### ## ###     ## ###    ### ## ###    ###\n"
  137.        "\n"
  138.        "      ------------------------------------------\n"
  139.        "               LocalePL " __version  "."  __revision "  (" __date ")\n"
  140.        "      ------------------------------------------"
  141. )
  142.  
  143. (message "\n\n\n\n\n"
  144.          "W.F.M.H. LocalePL " __version  "."  __revision "\n"
  145.          "----------------------------\n"
  146.          "Wersja niezarejestrowana!"
  147. )
  148.  
  149. ;###########################################################################
  150. ;## HD Mode
  151. ;###########################################################################
  152.  
  153. (set InstallMode
  154.        (askchoice
  155.           (prompt  "Instalacja:")
  156.           (help    "\n\n\n\n"
  157.                    " W chwili obecnej instalacja pakietu na dyskietkach\n"
  158.                    " nie jest przewidziana. Wszelkie pliki nalezy zatem\n"
  159.                    "  skopiowac samemu albo lepiej dokupic dysk twardy.\n\n"
  160.                    " Jesli jednak ktos jest na tyle zdeterminowany, zeby\n"
  161.                    "  zrobic to recznie samemu, to odsylam do skroconego\n"
  162.                    "          samouczka zawartego w dokumentacji.")
  163.           (choices "na dysku twardym")
  164.        )
  165. )
  166.  
  167. ;###########################################################################
  168. ;## Samokontrola
  169. ;###########################################################################
  170.  
  171. (if
  172.        (askbool
  173.             (prompt
  174.                 "\n\n"
  175.               " Czy chcesz przeprowadzic samokontrole\n"
  176.               " pakietu przed przystapieniem do instalacji?\n\n"
  177.               " Samokontrola pakietu ma na celu wykrycie\n"
  178.               " ewentualnych zmian dokonanych w pakiecie\n"
  179.               " np. przez osoby trzecie czy spowodowanych\n"
  180.               " \"doczepieniem\" sie malego, zlosliwego\n"
  181.               " wiruska (np. Windows '95)"
  182.           )
  183.           (help    "\n"
  184. "                   ___\n"
  185. "                  /   \\__+---+---+\n"
  186. "                   ___   |   |   |\n"
  187. "                  /   \\__+---+---+\n"
  188. "                   ___   |   |   |\n"
  189. "                  /   \\__+---+---+\n\n\n"
  190. "   Windows'95? Przykro mi, to sklep komputerowy..."
  191.           )
  192.          (choices "Tak" "Nie")
  193.        )
  194.        (
  195.        (working "\n\n\n"
  196.                 "Sprawdzam - wstaw wode na kawe...")
  197.         (if (<> (run "c/md5sum >nil: -c PGP/LocalePL.pgp") 0)
  198.            (abort "\nU W A G A !\n\n"
  199.                 "Obawiam sie ze to nie jest oryginalna\n"
  200.                   "wersja pakietu W.F.M.H. LocalePL 2.0!\n"
  201.                   "Postaraj sie skorzystac z pewnego zrodla\n"
  202.                   "np. SilverDream!'s BBS czy sklep BitBox"
  203.            )
  204.          (message "\n\n\n\nWersja oryginalna pakietu.\n\n"
  205.                   "Mozna kontynuowac instalacje."         
  206.          )
  207.         )
  208.        )
  209. )
  210.  
  211. ;###########################################################################
  212. ;## Rodzaj instalacji
  213. ;###########################################################################
  214.  
  215. (if (= (exists "ENV:LocalePL/LocalePL" (noreq)) 1)
  216.     (set _UpdateMode 1)
  217.     (set _UpdateMode 0)
  218. )
  219.  
  220. (set UpdateMode
  221.        (askchoice
  222.           (prompt  "Rodzaj instalacji:")
  223.           (help    "\n\n\n"
  224.                    "      \"Pelna instalacja\" przewidziana jest dla\n"
  225.                    "         uzytkowników którzy instaluja pakiet\n"
  226.                    "                  po raz pierwszy.\n\n"
  227.                    "     Pozostali uzytkownicy powinni zdecydowanie\n"
  228.                    "                wybrac \"Aktualizacje\"."
  229.           )
  230.           (choices "Pelna instalacja"
  231.                   "Aktualizacja wersji"
  232.          )
  233.          (default _UpdateMode)
  234.        )
  235. )
  236.  
  237. ;###########################################################################
  238. ;## Rodzaj ikonek
  239. ;###########################################################################
  240.  
  241. (set OS   0)
  242. (set MWB  1)
  243. (set IGFX 2)
  244.  
  245. (if (= (exists "ENVARC:MagicWB" (noreq)) 1)
  246.   (set DefIcons MWB)
  247.   (set DefIcons OS)
  248. )
  249.  
  250. (set IconType
  251.        (askchoice
  252.           (prompt  "Jakie ikonki zainstalowac?")
  253.           (help    "\n"
  254.                       "  Jedyna roznica podczas instalacji pakietu "
  255.                       "dla uzytkowników MagicWB badz pakietu Iconographics "
  256.                       "polega na skopiowaniu  ikon narysowanych wlasnie na "
  257.                       "tych pakietow (czyli 8/16 kolorow, ekran o wymiarach "
  258.                       "co najmniej 640x512).\n\n"
  259.                       "Ikonki standardowe, to ikonki stylu NewLook OS2.0+, "
  260.                       "dostarczane z komputerem przez s.p. Commodore."
  261.          )
  262.          (default DefIcons)
  263.           (choices "Standardowe"
  264.                    "MagicWB"
  265.                    "Iconographics"
  266.           )
  267.        )
  268. )
  269.  
  270. ;###########################################################################
  271. ;## OS3.1
  272. ;###########################################################################
  273.  
  274. (if (< OS_Version 40)
  275.  (
  276.   (set LibsVersion (/ (getversion "libs:locale.library") 65536))
  277.   (if (> LibsVersion 39)
  278.         (if (askbool
  279.              (prompt "\n\n\n"
  280.                    "Wprawdzie Twoja Amiga wyposazona jest\n"
  281.                    "w ROM z systemem wczesniejszym niz 3.1,\n"
  282.                    "jednak masz ów system zainstalowany na dysku.\n\n"
  283.                    "Czy chcesz zainstalowac W.F.M.H. LocalePL\n"
  284.                    "dla systemu 3.1+?")
  285.              (help   "\n\n\n\n"
  286.                    " Róznica w przypadku OS3.1+ polega na uwzglednieniu\n"
  287.                    "  zmian w katalogu systemowego programu MultiView.")
  288.              (choices "OS3.1+" "OS2.1 - 3.0")
  289.             )
  290.         (set OS_Version 40)
  291.         )
  292.   )    
  293.  )
  294. )
  295.  
  296. ;###########################################################################
  297. ;## translator.library
  298. ;###########################################################################
  299.  
  300. (set LibsVersion (/ (getversion "libs:translator.library") 65536))
  301. (if (< LibsVersion 42)
  302.    (
  303.      (set TranslatorPrompt "* Biblioteka translator 42+ nie znaleziona! *\nCzy mimo to chcesz dokonac poprawek w:")
  304.     (set defTrans 0)
  305.    )
  306.    (
  307.      (set TranslatorPrompt "Czy chcesz dokonac poprawek w:")
  308.     (set defTrans 1)
  309.    )
  310. )    
  311. (if (= (exists "L:speak-handler" (noreq)) 1)
  312.   (set defTrans (+ defTrans 2))
  313. )
  314. (if (= (exists "SYS:Utilities/Say" (noreq)) 1)
  315.   (set defTrans (+ defTrans 4))
  316. )
  317.  
  318. (set TranslatorPatch (askoptions
  319.             (prompt  TranslatorPrompt)
  320.             (help    
  321. " Powyzsze opcje dotycza uzytkowników biblioteki "
  322. "translator.library v42+ (dostepnej w SD!'s BBS, "
  323. "badz w sieci AmiNet, w katalogu \"util/libs\") "
  324. "autorstwa Francesco Devitta bedaca lokalizowana "
  325. "wersja znanej z systemu 1.3/2.0 biblioteki sluzacej "
  326. "do syntezy mowy. Jesli jej nie uzywasz (a warto!) to "
  327. "mozesz pominac wszystkie opcje z tej strony.\n"
  328. " Oryginalne programy speak-handler "
  329. "(obslugujacy urzadzenie SPEAK:) i Say nie "
  330. "wspólpracuja poprawnie z tekstami zawierajacymi "
  331. "znaki narodowe konieczne jest ich poprawienie, "
  332. "które odbywa sie automatycznie podczas instalacji "
  333. "pakietu W.F.M.H. LocalePL. Oryginalne wersje "
  334. "wymienionych plików zostana zachowane pod "
  335. "zmienionymi nazwami.\n"
  336. " Uwaga uzytkownicy OS3.0+: zarowno speak-handler "
  337. "jak i Say nie sa juz standardowym wyposazeniem tej "
  338. "(i nowszych) wersji systemu.\n\n"
  339.                      @askoptions-help
  340.             )
  341.  
  342.             (choices " Accents"
  343.                      " speak-handler"
  344.                      " Say"
  345.             )
  346.             (default defTrans)
  347.            )
  348. )
  349.  
  350. ;###########################################################################
  351. ;## Dodatki
  352. ;###########################################################################
  353.  
  354. (set Dodatki (askoptions
  355.             (prompt  "Czy chcesz zainstalowac:")
  356.             (help    WedgeHelp
  357.                      LSortHelp
  358.                      @askoptions-help
  359.             )
  360.             (choices " Dodatkowe polskie czcionki"
  361.                      " Program AssignWedge 1.5"
  362.                      " Konwerter tekstu PrintIt 1.1"
  363.                      " Program LSort 1.2"
  364.                      " APC 2.0"
  365.                      " Polskie czcionki dla MagicWB"
  366.             )
  367.            )
  368. )
  369.  
  370. ;###########################################################################
  371. ;## CrossDOS - tablice konwersji
  372. ;###########################################################################
  373.  
  374. (if (< OS_Version 39)
  375.   (set DefCross 0)
  376.   (set DefCross 15)
  377. )
  378.  
  379. (set CrossDos (askoptions
  380.             (prompt  "Wybierz tablice konwersji dla programu CrossDos:")
  381.             (help    
  382. " CrossDos jest standardowym wyposazeniem systemu "
  383. "operacyjnego poczawszy od wersji 3.0 i wsrod swoich "
  384. "opcji posiada takze mozliwosc automatycznej "
  385. "konwersji plików podczas np. ich kopiowania. Szczegolow szukaj "
  386. "w zalaczonej do komputera dokumentacji.\n\n"
  387.                      @askoptions-help
  388.             )
  389.             (choices " ApplePL.crossdos"
  390.                      " Latin-2 (CP 852).crossdos"
  391.                      " Mazovia.crossdos"
  392.                      " Windows (CP 1250).crossdos"
  393.             )
  394.             (default DefCross)
  395.            )
  396. )
  397.  
  398. ;###########################################################################
  399. ;## Sterowniki drukarek
  400. ;###########################################################################
  401.  
  402. (set #Druk_Help (cat " Poniûsze sterowniki pozwalajâ uzyskaê "
  403.                      "polskie litery na wymienionych modelach "
  404.                      "drukarek. Po szczegóîy dot. sterowników "
  405.                      "siëgnij do dokumentacji pakietu.\n\n"
  406.                      @askoptions-help)
  407. )
  408.  
  409. (set Drukarka (askoptions
  410.             (prompt  "Wybierz polski sterownik drukarki:")
  411.             (help    #Druk_Help)
  412.             (choices
  413. " Citizen120D"
  414. " Citizen120Dplus"
  415. " D100M_4"
  416. " D100M_6"
  417. " EpsonLQ100-L2"
  418. " EpsonLX400"
  419. " EpsonQ-Latin2"
  420. " EpsonQ-Mzv"
  421. " EpsonStylus800-L2"
  422. " EpsonX-Latin2"
  423. " EpsonX-Mzv"
  424. " EpsonXgraf"
  425.             )
  426.             (default 0)
  427.            )
  428. )
  429.  
  430. (set Drukarka2 (askoptions
  431.             (prompt  "Wybierz polski sterownik drukarki:")
  432.             (help    #Druk_Help)
  433.             (choices
  434. " GenericOver"
  435. " HPDeskJet-Latin2"
  436. " HPLJ4_PCL5_ISOL1L2"
  437. " IBM-Mzv"
  438. " SeikoshaSP1900"
  439. " StarLC10"
  440. " StarLC200"
  441. " StarLC90-L2"
  442. " StarNL10Eps"
  443. " StarNL10Eps1"
  444. " StarNX15"
  445.             )
  446.             (default 0)
  447.            )
  448. )
  449.  
  450. ;###########################################################################
  451. ;## Katalogi
  452. ;###########################################################################
  453.  
  454. (set katalogi_wynik1 (askoptions
  455.               (prompt  "Czy chcesz zainstalowac polskie pliki dla:")
  456.               (help    @askoptions-help)
  457.         (choices
  458. "AGraph 36"
  459. "ARCalc 2.0"
  460. "ARC Handler 2.0c"
  461. "AssignWedge 1.5"
  462. "AZap 2.40"
  463. "BGui"
  464. "CatEdit 1.2b"
  465. "CED 3.5"
  466. "CVMode 1.5"
  467. "CyberView 2.1"
  468. "CyberWindow 2.0"
  469. "CycleToMenu 2.1"
  470.         )
  471. ))
  472.  
  473.  
  474. (set katalogi_wynik2 (askoptions
  475.               (prompt  "Czy chcesz zainstalowac polskie pliki dla:")
  476.               (help    @askoptions-help)
  477.         (choices
  478. "db 3.0"
  479. "Deft II 1.6"
  480. "DirectoryOpus 5"
  481. "DoIcon 1.6"
  482. "FlexCat 1.5"
  483. "ForceMode 1.1"
  484. "IFFMaster 1.4"
  485. "ModePro 4.5"
  486. "Most 1.57"
  487. "MUI Builder 2.2c"
  488. "MUI-Prefs 2.3"
  489. "MUI 3.1"
  490.         )
  491. ))
  492.  
  493.  
  494. (set katalogi_wynik3 (askoptions
  495.               (prompt  "Czy chcesz zainstalowac polskie pliki dla:")
  496.               (help    @askoptions-help)
  497.         (choices
  498. "MultiUser 1.8"
  499. "New Mode 3.9"
  500. "PicToIcon"
  501. "PicView 1.21"
  502. "PPrefs 2.02"
  503. "Printer 42"
  504. "PSM 1.2"
  505. "ReOrg 3.11"
  506. "ReqTools 2.4"
  507. "ScreenTab 1.25"
  508. "ScreenWizard 1.1"
  509. "ShapeShifter 3.3"
  510.         )
  511. ))
  512.  
  513.  
  514. (set katalogi_wynik4 (askoptions
  515.               (prompt  "Czy chcesz zainstalowac polskie pliki dla:")
  516.               (help    @askoptions-help)
  517.         (choices
  518. "SnoopDos 3.0"
  519. "Term 4.5"
  520. "TIFF datatype 40.5"
  521. "TinyMeter 4.01"
  522. "ToolsDeamon 2.1a"
  523. "TrashMaster 1.7"
  524. "Triton 1.4"
  525. "ToolsManager 2.1"
  526. "Typeface 1.1"
  527. "VChess 3.4"
  528. "Visage 39.4"
  529. "WSpeed 1.4"
  530. "xprzmodem.library"
  531.         )
  532. ))
  533.  
  534.  
  535. ;###########################################################################
  536. ;## Instalacja - OS
  537. ;###########################################################################
  538.  
  539. (set JakieôCzcionkiZainstalowane 0)
  540.  
  541. (if (= UpdateMode 0)
  542.  (
  543.   (working "Instaluje podstawowe czcionki...")
  544.   (run "RAM:UnLzX >nil: x -m Commodore/Czcionki/Czcionki.lzx #? FONTS:")
  545.   (set JakieôCzcionkiZainstalowane 1)
  546.   (complete 15)
  547.  
  548.   (working "Instaluje FontPLPatch...")
  549.   (run "RAM:UnLzX >nil: x -m Commodore/WBStartup/FontPLPatch.lzx #? SYS:WBStartup/")
  550.   (complete 25)
  551.  
  552.   (working "Instaluje mapy klawiatury...")
  553.   (run "RAM:UnLzX >nil: x -m Commodore/Keymaps/Keymaps.lzx #? KEYMAPS:")
  554.  )
  555. )
  556. (complete 30)
  557.  
  558.  
  559. (working "Instaluje pliki systemowe...")
  560.  
  561. (run "RAM:UnLzX >nil: x -m Commodore/Locale/Catalogs.lzx #? LOCALE:")
  562. (complete 40)
  563.  
  564. (run "RAM:UnLzX >nil: x -m Commodore/Locale/Help.lzx #? LOCALE:")
  565. (complete 45)
  566.  
  567. (if (= UpdateMode 0)
  568.  (
  569.  
  570.   (if (<> (exists "LOCALE:Countries" (noreq)) 2)
  571.     (makedir "LOCALE:Countries")
  572.   )
  573.   (if (<> (exists "LOCALE:Languages" (noreq)) 2)
  574.     (makedir "LOCALE:Languages")
  575.   )
  576.  
  577.   (copyfiles
  578.         (source "Commodore/Locale/polska.country")
  579.         (dest "LOCALE:Countries")
  580.   )
  581.   (copyfiles
  582.         (source "Commodore/Locale/polski.language")
  583.         (dest "LOCALE:Languages")
  584.   )
  585.  )
  586. )
  587.  
  588. ;###########################################################################
  589. ;## Instalacja - poprawki dla OS3.1
  590. ;###########################################################################
  591.  
  592. (if (< OS_Version 40)
  593.   (
  594.      (delete "LOCALE:Catalogs/Polski/Sys/utilities.catalog")
  595.     (rename "LOCALE:Catalogs/Polski/Sys/utilities3.0.catalog" "LOCALE:Catalogs/Polski/Sys/utilities.catalog")
  596.   )
  597.     (delete "LOCALE:Catalogs/Polski/Sys/utilities3.0.catalog")
  598. )
  599.  
  600. ;###########################################################################
  601. ;## Instalacja - translator.library oraz patch
  602. ;###########################################################################
  603.  
  604. (if (<> TranslatorPatch 0)
  605.  (
  606.  
  607.     (if (bitand TranslatorPatch 1)
  608.     (
  609.      (working "Instaluje zasady wymowy...")
  610.       (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Accents/Accents.lzx #? LOCALE:")
  611.     )
  612.     )
  613.  
  614.    (if (bitand TranslatorPatch 2)
  615.     (
  616.      (if (= (exists "L:speak-handler" (noreq)) 1)
  617.       (
  618.        (working "\nInstaluje poprawki do L:speak-handler...")
  619.        (set err (run "c/spatch -pDodatki/Patch/speak-handler.37.4.pch -oL:speak-handler.new L:speak-handler"))
  620.  
  621.        (if (= err 0)
  622.            (
  623.             (rename L:speak-handler L:speak-handler.old)
  624.             (rename L:speak-handler.new L:speak-handler)
  625.         )
  626.         (message "\n\nNie moge wprowadzic poprawek\n"
  627.                   "w pliku L:speak-handler. Byc moze dysponujesz\n"
  628.                   "inna wersja handlera, lub jest on\n"
  629.                   "skompresowany np. Imploderem."
  630.         )
  631.        )
  632.          )
  633.       (message "\n\nspeak-handler nie znaleziony!\n\n"
  634.               "Aby program instalacyjny mógl wprowadzic\n"
  635.               "poprawki, plik speak-handler powinie znajdowac\n"
  636.               "sie w katalogu L:"
  637.       )
  638.      )
  639.     )
  640.    )
  641.  
  642.    (if (bitand TranslatorPatch 4)
  643.     (
  644.      (if (= (exists "SYS:Utilities/Say" (noreq)) 1)
  645.       (
  646.        (working "Instaluje poprawki do\nprogramu Say...")
  647.        (set err (run "c/spatch -pDodatki/Patch/Say.37.4.pch -oSYS:Utilities/Say.new SYS:Utilities/Say"))
  648.  
  649.        (if (= err 0)
  650.          (
  651.           (rename SYS:Utilities/Say SYS:Utilities/Say.old)
  652.           (rename SYS:Utilities/Say.new SYS:Utilities/Say)
  653.         )
  654.         (
  655.          (message "\n\nNie moge wprowadzic poprawek\n"
  656.                   "do programu SAY. Byc moze dysponujesz\n"
  657.                   "inna jego wersja , lub jest on\n"
  658.                   "skompresowany np. Imploderem."
  659.          )
  660.         )
  661.        )
  662.       )
  663.       (message "\n\nProgram SAY nie znaleziony!\n\n"
  664.                "Aby program instalacyjny mógl wprowadzic\n"
  665.                "poprawki, plik SAY powinie znajdowac\n"
  666.                "sie w katalogu SYS:Utilities"
  667.       )
  668.      )
  669.     )
  670.    )
  671.  )
  672. )
  673.  
  674. ;###########################################################################
  675. ;## Instalacja - CrossDOS - tablice konwersji
  676. ;###########################################################################
  677.  
  678. (if (<> CrossDos 0)
  679.  (
  680.   (set CMD "RAM:UnLzX >nil: x -m  Commodore/L/CrossDOS.lzx ")
  681.  
  682.   (if (bitand CrossDos 1) (set CMD (cat CMD " FileSystem_Trans/ApplePL.crossdos")))
  683.   (if (bitand CrossDos 2) (set CMD (cat CMD " \"FileSystem_Trans/Latin-2 CP 852.crossdos\"")))
  684.   (if (bitand CrossDos 4) (set CMD (cat CMD " FileSystem_Trans/Mazovia.crossdos")))
  685.   (if (bitand CrossDos 8) (set CMD (cat CMD " \"FileSystem_Trans/Windows CP 1250.crossdos\"")))
  686.  
  687.   (working "Instalujë tablice konwersji...")
  688.   (set CMD (cat CMD " L:"))
  689.   (run CMD)
  690.  )
  691. )
  692.  
  693. ;###########################################################################
  694. ;## Instalacja - sterowniki drukarek
  695. ;###########################################################################
  696.  
  697. (if (<> Drukarka 0)
  698.  (
  699.   (set CMD "RAM:UnLzX >nil: x -m  Dodatki/Drukarki/Drukarki.lzx ")
  700.  
  701.  
  702.   (if (bitand Drukarka    1) (set CMD (cat CMD " PL_Citizen120D")))
  703.   (if (bitand Drukarka    2) (set CMD (cat CMD " PL_Citizen120Dplus")))
  704.   (if (bitand Drukarka    4) (set CMD (cat CMD " PL_D100M_4")))
  705.   (if (bitand Drukarka    8) (set CMD (cat CMD " PL_D100M_6")))
  706.   (if (bitand Drukarka   16) (set CMD (cat CMD " PL_EpsonLQ100-L2")))
  707.   (if (bitand Drukarka   32) (set CMD (cat CMD " PL_EpsonLX400")))
  708.   (if (bitand Drukarka   64) (set CMD (cat CMD " PL_EpsonQ-Latin2")))
  709.   (if (bitand Drukarka  128) (set CMD (cat CMD " PL_EpsonQ-Mzv")))
  710.   (if (bitand Drukarka  256) (set CMD (cat CMD " PL_EpsonStylus800-L2")))
  711.   (if (bitand Drukarka  512) (set CMD (cat CMD " PL_EpsonX-Latin2")))
  712.   (if (bitand Drukarka 1024) (set CMD (cat CMD " PL_EpsonX-Mzv")))
  713.   (if (bitand Drukarka 2048) (set CMD (cat CMD " PL_EpsonXgraf")))
  714.  
  715.   (working "Instalujë sterowniki drukarek...")
  716.   (set CMD (cat CMD " DEVS:Printers/"))
  717.   (run CMD)
  718.  )
  719. )
  720.  
  721.  
  722.  
  723. (if (<> Drukarka2 0)
  724.  (
  725.   (set CMD "RAM:UnLzX >nil: x -m  Dodatki/Drukarki/Drukarki.lzx ")
  726.  
  727.   (if (bitand Drukarka2    1)  (set CMD (cat CMD " PL_GenericOver")))
  728.   (if (bitand Drukarka2    2)  (set CMD (cat CMD " PL_HPDeskJet-Latin2")))
  729.   (if (bitand Drukarka2    4)  (set CMD (cat CMD " PL_HPLJ4_PCL5_ISOL1L2")))
  730.   (if (bitand Drukarka2    8)  (set CMD (cat CMD " PL_IBM-Mzv")))
  731.   (if (bitand Drukarka2   16)  (set CMD (cat CMD " PL_SeikoshaSP1900")))
  732.   (if (bitand Drukarka2   32)  (set CMD (cat CMD " PL_StarLC10")))
  733.   (if (bitand Drukarka2   64)  (set CMD (cat CMD " PL_StarLC200")))
  734.   (if (bitand Drukarka2  128)  (set CMD (cat CMD " PL_StarLC90-L2")))
  735.   (if (bitand Drukarka2  256)  (set CMD (cat CMD " PL_StarNL10Eps")))
  736.   (if (bitand Drukarka2  512)  (set CMD (cat CMD " PL_StarNL10Eps1")))
  737.   (if (bitand Drukarka2 1024)  (set CMD (cat CMD " PL_StarNX15")))
  738.  
  739.   (set CMD (cat CMD " DEVS:Printers/"))
  740.   (run CMD)
  741.  )
  742. )
  743.  
  744. ;###########################################################################
  745. ;## Instalacja - dodatkowe czcionki
  746. ;###########################################################################
  747.  
  748. (working "Instaluje dodatkowe czcionki...")
  749. (if (bitand Dodatki 1)
  750.  (run "RAM:UnLzX >nil: x -m Dodatki/Czcionki/CzcionkiDodatkowe.lzx #? FONTS:")
  751. )
  752. (set JakieôCzcionkiZainstalowane 1)
  753. (complete 55)
  754.  
  755. ;###########################################################################
  756. ;## Instalacja - katalogi
  757. ;###########################################################################
  758.  
  759.  
  760. (set Wybierak katalogi_Wynik1)
  761. (set Maska 1)
  762.  
  763. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/AGraph.lzx #? LOCALE:Catalogs/polski/"))
  764. (set Maska (* Maska 2))
  765. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ARCalc.lzx #? LOCALE:Catalogs/polski/"))
  766. (set Maska (* Maska 2))
  767. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ARChandler.lzx #? LOCALE:Catalogs/polski/"))
  768. (set Maska (* Maska 2))
  769. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/AssignWedge.lzx #? LOCALE:Catalogs/polski/"))
  770. (set Maska (* Maska 2))
  771. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/AZap.lzx #? LOCALE:Catalogs/polski/"))
  772. (set Maska (* Maska 2))
  773. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/BGui.lzx #? LOCALE:Catalogs/polski/"))
  774. (set Maska (* Maska 2))
  775. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CatEdit.lzx #? LOCALE:Catalogs/polski/"))
  776. (set Maska (* Maska 2))
  777.  
  778. (if (bitand Wybierak Maska)
  779.  (if (exists "Dodatki/Locale/catalogs/Polski/CED.lzx" (noreq))
  780.    (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CED.lzx #? LOCALE:Catalogs/polski/")
  781.    (message "\n\n\n\n"
  782.             "CED 3.5\n"
  783.             "dostepny jest tylko dla\n"
  784.             "zarejestrowanych uzytkowników.\n\n"
  785.             "Zarejestruj sie wiec, lub dokonaj\n"
  786.             "aktualizacji posiadanej wersji!"
  787.    )
  788.  )
  789. )
  790. (set Maska (* Maska 2))
  791.  
  792. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CVMode.lzx #? LOCALE:Catalogs/polski/"))
  793. (set Maska (* Maska 2))
  794. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CyberView.lzx #? LOCALE:Catalogs/polski/"))
  795. (set Maska (* Maska 2))
  796. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CyberWindow.lzx #? LOCALE:Catalogs/polski/"))
  797. (set Maska (* Maska 2))
  798. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/CycleToMenu.lzx #? LOCALE:Catalogs/polski/"))
  799. (set Maska (* Maska 2))
  800.  
  801.  
  802.  
  803.  
  804. (set Wybierak katalogi_Wynik2)
  805. (set Maska 1)
  806.  
  807. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/db.lzx #? LOCALE:Catalogs/polski/"))
  808. (set Maska (* Maska 2))
  809. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/DeftII.lzx #? LOCALE:Catalogs/polski/"))
  810. (set Maska (* Maska 2))
  811.  
  812. (if (bitand Wybierak Maska)
  813.  (if (exists "Dodatki/Locale/catalogs/Polski/DOpus5.lzx" (noreq))
  814.    (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/DOpus5.lzx #? LOCALE:Catalogs/polski/")
  815.    (message "\n\n\n\n"
  816.             "Directory Opus 5\n"
  817.             "dostepny jest tylko dla\n"
  818.             "zarejestrowanych uzytkowników.\n\n"
  819.             "Zarejestruj sie wiec, lub dokonaj\n"
  820.             "aktualizacji posiadanej wersji!"
  821.    )
  822.  )
  823. )
  824. (set Maska (* Maska 2))
  825.  
  826. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/DoIcon.lzx #? LOCALE:Catalogs/polski/"))
  827. (set Maska (* Maska 2))
  828. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/FlexCat.lzx #? LOCALE:Catalogs/polski/"))
  829. (set Maska (* Maska 2))
  830. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ForceMode.lzx #? LOCALE:Catalogs/polski/"))
  831. (set Maska (* Maska 2))
  832. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/IFFMaster.lzx #? LOCALE:Catalogs/polski/"))
  833. (set Maska (* Maska 2))
  834. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ModePro.lzx #? LOCALE:Catalogs/polski/"))
  835. (set Maska (* Maska 2))
  836. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Most.lzx #? LOCALE:Catalogs/polski/"))
  837. (set Maska (* Maska 2))
  838. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/MUIBuilder.lzx #? LOCALE:Catalogs/polski/"))
  839. (set Maska (* Maska 2))
  840. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/MUI-Prefs23.lzx #? LOCALE:Catalogs/polski/"))
  841. (set Maska (* Maska 2))
  842. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/MUI3.lzx #? LOCALE:Catalogs/polski/"))
  843. (set Maska (* Maska 2))
  844.  
  845.  
  846.  
  847. (set Wybierak katalogi_Wynik3)
  848. (set Maska 1)
  849.  
  850. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/MuFS.lzx #? LOCALE:Catalogs/polski/"))
  851. (set Maska (* Maska 2))
  852. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/NewMode.lzx #? LOCALE:Catalogs/polski/"))
  853. (set Maska (* Maska 2))
  854. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/PictIcon.lzx #? LOCALE:Catalogs/polski/"))
  855. (set Maska (* Maska 2))
  856. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/PicView.lzx #? LOCALE:Catalogs/polski/"))
  857. (set Maska (* Maska 2))
  858. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/PPrefs.lzx #? LOCALE:Catalogs/polski/"))
  859. (set Maska (* Maska 2))
  860. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Printer.lzx #? LOCALE:Catalogs/polski/"))
  861. (set Maska (* Maska 2))
  862. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/PSM.lzx #? LOCALE:Catalogs/polski/"))
  863. (set Maska (* Maska 2))
  864.  
  865. (if (bitand Wybierak Maska)
  866.  (if (exists "Dodatki/Locale/catalogs/Polski/ReOrg.lzx" (noreq))
  867.    (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ReOrg.lzx #? LOCALE:Catalogs/polski/")
  868.    (message "\n\n\n\n"
  869.             "ReOrg 3.11\n"
  870.             "dostepny jest tylko dla\n"
  871.             "zarejestrowanych uzytkowników.\n\n"
  872.             "Zarejestruj sie wiec, lub dokonaj\n"
  873.             "aktualizacji posiadanej wersji!"
  874.    )
  875.  )
  876. )
  877. (set Maska (* Maska 2))
  878.  
  879. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ReqTools.lzx #? LOCALE:Catalogs/polski/"))
  880. (set Maska (* Maska 2))
  881. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ScreenTab.lzx #? LOCALE:Catalogs/polski/"))
  882. (set Maska (* Maska 2))
  883. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ScreenWizard.lzx #? LOCALE:Catalogs/polski/"))
  884. (set Maska (* Maska 2))
  885. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ShapeShifter.lzx #? LOCALE:Catalogs/polski/"))
  886. (set Maska (* Maska 2))
  887.  
  888.  
  889.  
  890.  
  891. (set Wybierak katalogi_Wynik4)
  892. (set Maska 1)
  893.  
  894. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/SnoopDos.lzx #? LOCALE:Catalogs/polski/"))
  895. (set Maska (* Maska 2))
  896.  
  897. (if (bitand Wybierak Maska)
  898.  (if (exists "Dodatki/Locale/catalogs/Polski/Term.lzx" (noreq))
  899.    (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Term.lzx #? LOCALE:Catalogs/polski/")
  900.    (message "\n\n\n\n"
  901.             "Term 4.5\n"
  902.             "dostepny jest tylko dla\n"
  903.             "zarejestrowanych uzytkowników.\n\n"
  904.             "Zarejestruj sie wiec, lub dokonaj\n"
  905.             "aktualizacji posiadanej wersji!"
  906.    )
  907.  )
  908. )
  909. (set Maska (* Maska 2))
  910.  
  911. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/TIFFPrefs.lzx #? LOCALE:Catalogs/polski/"))
  912. (set Maska (* Maska 2))
  913. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/TinyMeter.lzx #? LOCALE:Catalogs/polski/"))
  914. (set Maska (* Maska 2))
  915. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ToolsDaemon.lzx #? LOCALE:Catalogs/polski/"))
  916. (set Maska (* Maska 2))
  917. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/TrashMaster.lzx #? LOCALE:Catalogs/polski/"))
  918. (set Maska (* Maska 2))
  919. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Triton.lzx #? LOCALE:Catalogs/polski/"))
  920. (set Maska (* Maska 2))
  921. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/ToolsManager.lzx #? LOCALE:Catalogs/polski/"))
  922. (set Maska (* Maska 2))
  923. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Typeface.lzx #? LOCALE:Catalogs/polski/"))
  924. (set Maska (* Maska 2))
  925. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/VChess.lzx #? LOCALE:Catalogs/polski/"))
  926. (set Maska (* Maska 2))
  927. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/Visage.lzx #? LOCALE:Catalogs/polski/"))
  928. (set Maska (* Maska 2))
  929. (if (bitand Wybierak Maska) (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/WSpeed.lzx #? LOCALE:Catalogs/polski/"))
  930. (set Maska (* Maska 2))
  931.  
  932. (if (bitand Wybierak Maska)
  933.  (if (exists "Dodatki/Locale/catalogs/Polski/XPRZmodem.lzx" (noreq))
  934.    (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/XPRZmodem.lzx #? LOCALE:Catalogs/polski/")
  935.    (message "\n\n\n\n"
  936.             "XPRZmodem\n"
  937.             "dostepny jest tylko dla\n"
  938.             "zarejestrowanych uzytkowników.\n\n"
  939.             "Zarejestruj sie wiec, lub dokonaj\n"
  940.             "aktualizacji posiadanej wersji!"
  941.    )
  942.  )
  943. )
  944. (set Maska (* Maska 2))
  945.  
  946.  
  947. ;###########################################################################
  948. ;## Instalacja - dodatki - AssignWedge
  949. ;###########################################################################
  950.  
  951. (if (bitand Dodatki 2)
  952.  (
  953.   (run "RAM:UnLzX >nil: x -m Dodatki/Programy/AssignWedge.lzx #? SYS:WBStartup/")
  954.   (run "RAM:UnLzX >nil: x -m Dodatki/Locale/Catalogs/AssignWedge.lzx #? LOCALE:Catalogs/polski/")
  955.  )
  956. )
  957. (complete 60)
  958.  
  959. ;###########################################################################
  960. ;## Instalacja - dodatki - Czcionki MagicWB
  961. ;###########################################################################
  962.  
  963. (if (bitand Dodatki 32)
  964.  (
  965.   (run "RAM:UnLzX >nil: x -m MagicWB/CzcionkiMagicWB.lzx #? FONTS:")
  966.   (set JakieôCzcionkiZainstalowane 1)
  967.  )
  968. )
  969. (complete 65)
  970.  
  971. ;###########################################################################
  972. ;## Instalacja - dodatki - LSort
  973. ;###########################################################################
  974.  
  975. (if (bitand Dodatki 8)
  976.   (run "RAM:UnLzX >nil: x -m Dodatki/Programy/LSort.lzx #? C:")
  977. )
  978.  
  979. ;###########################################################################
  980. ;## Instalacja - dokumentacja
  981. ;###########################################################################
  982.  
  983. (set DOC_Type
  984.      (askoptions
  985.              (prompt  "Co chcesz poczytac?")
  986.              (help @askoptions-help)
  987.              (choices
  988.               " Zwykle pliki tekstowe"
  989.               " Dokument AmigaGuide"
  990.              )
  991.              (default 2)
  992.      )
  993. )
  994.  
  995. (if (> DOC_Type 0)
  996.  (
  997.   (
  998.  
  999.   (set Dok_dest
  1000.      (tackon
  1001.               (askdir
  1002.                      (default @default-dest)
  1003.                      (prompt "Gdzie zyczysz sobie zainstalowac zalaczona\n"
  1004.                              "dokumentacje do pakietu W.F.M.H. LocalePL?")
  1005.                      (help   "\n\n\n"
  1006.                              " Z wyswietlonej listy wybierz urzadzenie lub katalog\n"
  1007.                              "    w ktorym chcialbys zainstalowac dokumentacje.\n"
  1008.                              "   Program instalacyjny zalozy katalog \"LocalePL\"\n"
  1009.                              "  a w nim podkatalogi, zaleznie \"Dokumentacja\"\n"
  1010.                              "  oraz \"AmigaGuide\" w nim umiesci cala dokumentacje\n\n"
  1011.                              "          Nie zapomnij jej potem przeczytac!"
  1012.                         "\n\n\n\n"
  1013.                         @askdir-help
  1014.                         )
  1015.                 )
  1016.         "LocalePL"
  1017.     )
  1018.   )
  1019.  
  1020.   (makedir Dok_dest (infos))
  1021.  
  1022.   (if (bitand DOC_Type 1)
  1023.    (
  1024.     (makedir (tackon Dok_dest "Dokumentacja") (infos))
  1025.     (run (cat "RAM:UnLzX >nil: x -m Dokumentacja/Dokumentacja.lzx #? " (tackon Dok_dest "Dokumentacja/")))
  1026.     )
  1027.    )
  1028.   )
  1029.  
  1030.    (if (bitand DOC_Type 2)
  1031.     (
  1032.      (if (<> (exists (tackon Dok_dest "AmigaGuide") (noreq)) 2)
  1033.       (makedir (tackon Dok_dest "AmigaGuide") (infos))
  1034.      )
  1035.  
  1036.      (if (= (exists (tackon Dok_dest "AmigaGuide/PanStanislaw.pic") (noreq)) 1)
  1037.       (delete (tackon Dok_dest "AmigaGuide/PanStanislaw.pic"))
  1038.      )
  1039.  
  1040.     (run (cat "RAM:UnLzX >nil: x -m AmigaGuide/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/")))
  1041.     )
  1042.    )
  1043.  )
  1044.  (message "\n\n\n\n\n\nNie to nie...")
  1045. )
  1046. (complete 80)
  1047.  
  1048. ;###########################################################################
  1049. ;## Instalacja - dodatki - PrintIt
  1050. ;###########################################################################
  1051.  
  1052. (if (bitand Dodatki 4)
  1053.  (
  1054.   (set PrintIt_dest
  1055.        (tackon
  1056.               (askdir
  1057.                      (default @default-dest)
  1058.                      (prompt  "Gdzie zyczysz sobie zainstalowac PrintIt?")
  1059.                      (help    "\n\n\n\n"
  1060.                              " Z wyswietlonej listy wybierz urzadzenie lub katalog\n"
  1061.                              "    w ktorym chcialbys zainstalowac PrintIt v1.1.\n"
  1062.                              "    Program instalacyjny zalozy dodatkowy katalog\n"
  1063.                              "     o nazwie PrintIt i w nim umiesci co trzeba."
  1064.                              "\n\n\n\n\n\n"
  1065.                              @askdir-help
  1066.                         )
  1067.                 )
  1068.         "PrintIt"
  1069.         )
  1070.   )
  1071.  
  1072.   (makedir PrintIt_dest (infos))
  1073.  
  1074.   (run (cat "RAM:UnLzX x -m  Dodatki/Programy/PrintIt.lzx " (cat "\""(cat PrintIt_dest "/\""))))
  1075.  )
  1076. )
  1077.  
  1078. ;###########################################################################
  1079. ;## Instalacja - dodatki - APC
  1080. ;###########################################################################
  1081.  
  1082. (if (bitand Dodatki 16)
  1083.  (
  1084.   (set APC_dest
  1085.        (tackon
  1086.               (askdir
  1087.                      (default @default-dest)
  1088.                      (prompt  "Gdzie zyczysz sobie zainstalowac APC?")
  1089.                      (help    "\n\n\n\n"
  1090.                              " Z wyswietlonej listy wybierz urzadzenie lub katalog\n"
  1091.                              "       w ktorym chcialbys zainstalowac APC 2.0.\n"
  1092.                              "    Program instalacyjny zalozy dodatkowy katalog\n"
  1093.                              "        o nazwie APC i w nim umiesci co trzeba."
  1094.                              "\n\n\n\n\n\n"
  1095.                              @askdir-help
  1096.                         )
  1097.                 )
  1098.         "APC"
  1099.         )
  1100.   )
  1101.  
  1102.   (makedir APC_dest (infos))
  1103.  
  1104.   (run (cat "RAM:UnLzX x -m  Dodatki/Programy/APC.lzx " (cat "\""(cat APC_dest "/\""))))
  1105.  )
  1106. )
  1107. (complete 70)
  1108.  
  1109. ;###########################################################################
  1110. ;## Instalacja - ikonki
  1111. ;###########################################################################
  1112.  
  1113. (if (bitand IconType MWB)                           ;## MagicWB
  1114.  (
  1115.     (if (= UpdateMode 0)
  1116.      (copyfiles
  1117.           (source "MagicWB/FontPLPatch.info")
  1118.           (dest "SYS:WBStartup/")
  1119.      )
  1120.     )
  1121.  
  1122.   (if (bitand DOC_Type 1)                           ;## Dokumentacja
  1123.    (
  1124.     (set CMD (cat "RAM:UnLzX >nil: x -m  MagicWB/Dokumentacja.lzx #? " (tackon Dok_dest "Dokumentacja/")))
  1125.     (run CMD)
  1126.  
  1127.     (copyfiles
  1128.          (source "MagicWB/PL.info")
  1129.         (dest Dok_dest)
  1130.          (newname "Dokumentacja.info")
  1131.     )
  1132.    )
  1133.   )
  1134.  
  1135.   (if (bitand DOC_Type 2)                           ;## AmigaGuide
  1136.    (
  1137.     (set CMD (cat "RAM:UnLzX >nil: x -m  MagicWB/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/")))
  1138.     (run CMD)
  1139.  
  1140.     (copyfiles
  1141.          (source "MagicWB/PL.info")
  1142.         (dest Dok_dest)
  1143.          (newname "AmigaGuide.info")
  1144.     )
  1145.    )
  1146.   )
  1147.  
  1148.   (if (bitand Dodatki 2)                            ;## AssignWedge
  1149.      (copyfiles
  1150.           (source "MagicWB/AssignWedge.info")
  1151.           (dest "SYS:WBStartup/")
  1152.      )
  1153.   )
  1154.    (if (bitand Dodatki 4)                           ;## PrintIt
  1155.      (copyfiles
  1156.           (source "MagicWB")
  1157.           (dest PrintIt_dest)
  1158.           (pattern "PrintIt#?")
  1159.      )
  1160.    )
  1161.  
  1162.    (if (bitand Dodatki 16)                           ;## APC
  1163.      (copyfiles
  1164.           (source "MagicWB")
  1165.           (dest APC_dest)
  1166.           (pattern "APC#?")
  1167.      )
  1168.    )
  1169.  
  1170.  )
  1171.  
  1172.  
  1173.  
  1174.  
  1175.                                                     ;## Iconographics
  1176. (if (bitand IconType IGFX)
  1177.  (
  1178.    (if (= UpdateMode 0)
  1179.      (copyfiles                                       ;##  FontPLPatch
  1180.           (source "Iconographics/FontPLPatch.info")
  1181.           (dest "SYS:WBStartup/")
  1182.      )
  1183.    )
  1184.  
  1185.   (if (bitand DOC_Type 1)                           ;## Dokumentacja
  1186.    (
  1187.     (set CMD (cat "RAM:UnLzX >nil: x -m  Iconographics/Dokumentacja.lzx #? " (tackon Dok_dest "AmigaGuide/")))
  1188.     (run CMD)
  1189.  
  1190.     (copyfiles
  1191.          (source "Iconographics/PL.info")
  1192.          (dest Dok_dest)
  1193.          (newname "Dokumentacja.info")
  1194.     )
  1195.    )
  1196.   )
  1197.  
  1198.  
  1199.   (if (bitand DOC_Type 2)                           ;## AmigaGuide
  1200.    (
  1201.     (set CMD (cat "RAM:UnLzX >nil: x -m  Iconographics/AmigaGuide.lzx #? " (tackon Dok_dest "AmigaGuide/")))
  1202.     (run CMD)
  1203.     
  1204.     (copyfiles
  1205.          (source "Iconographics/PL.info")
  1206.          (dest Dok_dest)
  1207.          (newname "AmigaGuide.info")
  1208.     )
  1209.    )
  1210.   )
  1211.  
  1212.    (if (bitand Dodatki 2)                           ;## AssignWedge
  1213.      (copyfiles
  1214.           (source "Iconographics/AssignWedge.info")
  1215.           (dest "SYS:WBStartup")
  1216.      )
  1217.    )
  1218.  
  1219.    (if (bitand Dodatki 4)
  1220.      (copyfiles
  1221.           (source "Iconographics")
  1222.           (dest PrintIt_dest)
  1223.           (pattern "PrintIt#?")
  1224.      )
  1225.    )
  1226.  
  1227.    (if (bitand Dodatki 16)                           ;## APC
  1228.      (copyfiles
  1229.           (source "Iconographics")
  1230.           (dest APC_dest)
  1231.           (pattern "APC#?")
  1232.      )
  1233.    )
  1234.  
  1235.  )
  1236. )
  1237.  
  1238. )
  1239. (complete 80)
  1240.  
  1241. ;###########################################################################
  1242. ;## Instalacja - FixFonts - aktualizacja listy czcionek
  1243. ;###########################################################################
  1244.  
  1245. (set FixFontHelp
  1246.   (cat   "\n\n"
  1247.          "  Aby operacja sie powiodla, program aktualizujacy\n"
  1248.          "   \"FixFonts\" powinien znajdowac sie w katalogu\n"
  1249.          "   \"SYS:System\" (gdzie SYS: to wolumen z ktorego\n"
  1250.          "  uruchomiona zostala Twoja Amiga), gdyz tam bedzie\n"
  1251.          "  poszukiwany przez niniejszy skrypt instalacyjny.\n"
  1252.          "    Jesli proba zlokalizowania programu sië nie\n"
  1253.          "         powiedzie, bedziesz musial wskazac\n"
  1254.          "              recznie jego lokalizacje."
  1255.   )
  1256. )
  1257.  
  1258. (if (= JakieôCzcionkiZainstalowane 1)
  1259.   (if (AskBool
  1260.             (prompt "\n\nPo zainstalowaniu dodatkowych\n"
  1261.                     "czcionek w systemie, wypada uruchomic\n"
  1262.                     "program FixFonts, ktory zaktualizuje\n"
  1263.                     "m. in. indeksy ich wielkosci, co jest\n"
  1264.                     "szczegolnie istotne w przypadku pokrywania\n"
  1265.                     "sie nazw czcionek instalowanych z istniejacymi.\n"
  1266.                     "Czy chcesz abym wywolal program aktualizujacy,\n"
  1267.                     "czy tez wolisz zrobic to potem samodzielnie?"
  1268.             )
  1269.            (choices "Zrob to" "Wole sama")
  1270.            (help    FixFontHelp)
  1271.      )
  1272.      (if (= (exists "SYS:System/FixFonts" (noreq)) 1)
  1273.          (
  1274.            (working "\n\n\nUaktualniam rozmiary czcionek...")
  1275.            (run "SYS:System/FixFonts >nil:")
  1276.          )
  1277.          (
  1278.            (message "\n\n\n\n\n"
  1279.                   "Niestety program \"FixFonts\" nie zostal\n"
  1280.                   "znaleziony. W tym przypadku musisz wskazac\n"
  1281.                   "recznie miejsce jego pobytu."
  1282.            )
  1283.            (set LastChance 
  1284.               (tackon
  1285.                 (askdir
  1286.                        (default "SYS:System")
  1287.                          (prompt  "Wskaz katalog z programem \"FixFonts\"")
  1288.                   (help    "\n\n\n\n\n"
  1289.                            " Z wyswietlonej listy wybierz urzadzenie lub katalog,\n"
  1290.                            "       w ktorym znajduje sie program FixFonts.\n"
  1291.                            "\n\n\n\n\n\n\n\n\n"
  1292.                            @askdir-help)
  1293.                 )
  1294.              "FixFonts"
  1295.               )
  1296.            )
  1297.            (if (= (exists LastChance (noreq)) 1)
  1298.                (
  1299.                 (working "\n\n\nUaktualniam rozmiary czcionek...")
  1300.                 (run (cat LastChance " >nil:"))
  1301.                )
  1302.            )
  1303.          )
  1304.      )
  1305.   )
  1306. )
  1307. (complete 90)
  1308.  
  1309. ;###########################################################################
  1310. ;## Instalacja - CacheFonts - aktualizacja listy czcionek
  1311. ;###########################################################################
  1312.  
  1313. (set CacheHelp 
  1314.   (cat   "\n  Aby operacja sie powiodla, program aktualizujacy\n"
  1315.          "      \"MakeFontList\" powinien znajdowac sie\n"
  1316.          "     badz w katalogu \"C:\" badz w \"C:CacheFont/\"\n"
  1317.          "     gdyz tam bedzie poszukiwany przez niniejszy\n"
  1318.          "   skrypt instalacyjny. Jesli proba zlokalizowania\n"
  1319.          "     programu nie powiedzie sie, bedziesz musial\n"
  1320.          "            wskazac recznie jego lokalizacje."
  1321.   )
  1322. )
  1323.  
  1324. (if (= JakieôCzcionkiZainstalowane 1)
  1325.  (
  1326.   (set IsCacheFont (OR (run "c/CheckCacheFont") (= (exists "FONTS:CacheFontData" (noreq)) 2)))
  1327.   (if IsCacheFont
  1328.     (if (AskBool
  1329.               (prompt "\n\nJako ze uzywasz programu CacheFont,\n"
  1330.                       "wszelkie nowe czcionki beda w pelni\n"
  1331.                       "osiagalne dopiero po aktualizacji listy\n"
  1332.                       "czcionek. Czy chcesz abym wywolal program\n"
  1333.                       "aktualizujacy ta liste, czy tez wolisz\n"
  1334.                       "zrobic to potem samodzielnie?")
  1335.              (choices "Zrob to" "Wole sama")
  1336.              (help    CacheHelp)
  1337.        )
  1338.        (if (= (exists "C:MakeFontList" (noreq)) 1)
  1339.            (
  1340.              (working "\n\n\nUaktualniam liste czcionek...")
  1341.              (run "C:MakeFontList >nil:")
  1342.            )
  1343.            (if (= (exists "C:CacheFont/MakeFontList" (noreq)) 1)
  1344.              (
  1345.                 (working "\n\n\nUaktualniam liste czcionek...")
  1346.                 (run "C:CacheFont/MakeFontList >nil:")
  1347.              )
  1348.              (
  1349.                (message "\n\n\n\n\n"
  1350.                       "Niestety program \"MakeFontList\" nie zostal\n"
  1351.                       "znaleziony. W tym przypadku musisz wskazac\n"
  1352.                       "recznie miejsce jego pobytu.")
  1353.                (set LastChance 
  1354.                   (tackon
  1355.                     (askdir
  1356.                            (default "SYS:")
  1357.                              (prompt  "Wskaz katalog z programem \"MakeFontList\"")
  1358.                       (help    "\n\n\n\n"
  1359.                                " Z wyswietlonej listy wybierz urzadzenie lub katalog,\n"
  1360.                                "      w ktorym znajduje sie program MakeFontList.\n"
  1361.                                "    Zostanie on wywolany w celu aktualizacji listy\n"
  1362.                                "              istniejacych na dysku czionek."
  1363.                                "\n\n\n\n\n\n\n\n"
  1364.                                @askdir-help)
  1365.                     )
  1366.                  "MakeFontList"
  1367.                   )
  1368.                )
  1369.                (if (= (exists LastChance (noreq)) 1)
  1370.                    (
  1371.                     (working "\n\n\nUaktualniam liste czcionek...")
  1372.                     (run (cat LastChance " >nil:"))
  1373.                    )
  1374.                )
  1375.              )
  1376.           )
  1377.        )
  1378.     )
  1379.   )
  1380.  )
  1381. )
  1382.  
  1383. (complete 95)
  1384.  
  1385.  
  1386. ;###########################################################################
  1387. ;## Instalacja - Presets
  1388. ;###########################################################################
  1389.  
  1390.  
  1391. (if (= UpdateMode 0)
  1392.  (
  1393.   (set ModKeymap
  1394.         (cat"\n\n   Nie obawiaj sie przy tym, ze twoje dotychczasowe\n"
  1395.                 " preferencje zostana skasowane.Program instalacyjny\n"
  1396.                 " zachowa Twoje dotychczasowe pliki preferencji,\n"
  1397.                 " a ponadto podczas rekonfiguracji mapy klawiatury\n"
  1398.                 " zachowa dotychczasowe ustawienie predkosci oraz\n"
  1399.                 " przyspieszenia myszki oraz wszelkie parametry\n"
  1400.                 " dotyczace klawiatury.")
  1401.   )
  1402.  
  1403.   (if
  1404.     (= 1 (askbool
  1405.        (prompt "\n\n\nCzy ustawic niezbedne parametry\n"
  1406.               "w preferencjach systemowych, tak aby\n"
  1407.               "LocalePL byly aktywne od razu po\n"
  1408.               "zainstalowaniu, czy tez wolisz zrobic to\n"
  1409.               "recznie?")
  1410.        (choices "Zrob to" "Wole sama")
  1411.        (help        "\n   Jesli wolisz miec to z glowy, to wybierz wariant\n"
  1412.               " \"Zrob to\" co pozwoli Ci  na zaoszczedzenie paru\n"
  1413.               " jakze cennych chwilek..."
  1414.               ModKeymap)
  1415.                 
  1416.        )
  1417.     )
  1418.  
  1419.    (                                                    ; ustawiamy
  1420.  
  1421. ;###########################################################################
  1422. ;## Instalacja - Presets - mapa klawiatury
  1423. ;###########################################################################
  1424.  
  1425.  (set Keymap
  1426.        (askchoice
  1427.           (prompt  "Jakiej klawiatury uzywasz?")
  1428.           (help    "\n"
  1429.                    "  Zaleznie od Twego wyboru ustawiona zostanie\n"
  1430.                    " odpowiednia mapa klawiatury"
  1431.                  ModKeymap)
  1432.           (choices "Angielskiej"
  1433.                    "Niemieckiej"
  1434.           )
  1435.        )
  1436.  )
  1437.  
  1438.  
  1439. ;###########################################################################
  1440. ;## Instalacja - Presets - czcionki
  1441. ;###########################################################################
  1442.  
  1443.   (if (= (bitand Dodatki 16) 0)
  1444.     (set prefs (askchoice
  1445.               (prompt "Ustawienie czcionek:")
  1446.                 (choices "Zostaw bez zmian"
  1447.                          "TopazPropPL i TopazPL"
  1448.                 )
  1449.                 (help        "\n Zostaw bez zmian\n"
  1450.                          " ----------------\n\n"
  1451.                          " Nie zmienia aktualnego ustawienia\n"
  1452.                          " czcionek...\n\n\n"
  1453.                          " Wariant 1\n"
  1454.                         " ---------\n\n"
  1455.                         " Proporcjonalny TopazPropPL jako czcionka\n"
  1456.                         " ekranowa (menu) i pod ikonki, do reszty\n"
  1457.                       " zas klasyczny TopazPL\n\n\n"
  1458.                       " Jak widac, masz do dyspozycji jeden tylko\n"
  1459.                       " dodatkowy wariant, a to z tego powodu, ze\n"
  1460.                       " wyszystkie pozostale uzywaja polskich\n"
  1461.                       " czionek z pakietu MagicWB a przeciez takich\n"
  1462.                       " nie chciales zainstalowac...")
  1463.                 )
  1464.      
  1465.      )           
  1466.      (set prefs (askchoice
  1467.               (prompt "Ustawienie czcionek:")
  1468.                 (choices "Zostaw bez zmian"
  1469.                          "TopazPropPL i TopazPL"
  1470.                         "TopazPropPL i XenPL"
  1471.                         "XHelveticaPL i XenPL (1)"
  1472.                         "XHelveticaPL i XenPL (2)"
  1473.                         "XHelveticaPL, TopazPL i XenPL"
  1474.               )
  1475.                 (help        "\n Zostaw bez zmian\n"
  1476.                          " ----------------\n\n"
  1477.                          " Nie zmienia aktualnego ustawienia\n"
  1478.                          " czcionek...\n\n\n"
  1479.                          " Wariant 1\n"
  1480.                         " ---------\n\n"
  1481.                         " Proporcjonalny TopazPropPL jako czcionka\n"
  1482.                         " ekranowa (menu) i pod ikonki, do reszty\n"
  1483.                       " zas klasyczny TopazPL\n\n\n"
  1484.                       " Wariant 2\n"
  1485.                       " ---------\n\n"
  1486.                       " Proporcjonalny TopazPL jako czcionka\n"
  1487.                         " ekranowa (menu) i pod ikonki, do reszty\n"
  1488.                       " zas XenPL. Wariant ten przeznaczony jest\n"
  1489.                       " raczej dla uzytkowników MagicWB.\n"
  1490.                       " Moim zdaniem taki uklad jest lepszy niz...\n\n"
  1491.                       " Wariant 3\n"
  1492.                       " ---------\n\n"
  1493.                       " ...standardowe ustawienie dla MagicWB\n"
  1494.                       " (czyli XHelveticaPL (11) jako czcionka\n"
  1495.                         " ekranowa (menu) i pod ikonki, do reszty\n"
  1496.                       " zas XenPL (9)), bowiem TopazPropPL jest znacznie\n"
  1497.                       " ladniejszy ale to kwestia gustu.\n\n"
  1498.                       " Wariant 4\n"
  1499.                       " ---------\n\n"
  1500.                       " Jak powyzszy wariant 3 ale czcionka ekranowa\n"
  1501.                       " ciut wieksza: XHelveticaPL (15).\n"
  1502.                       " Dla niezdecydowanych pozostaje juz ostatni...\n\n"
  1503.                       " Wariant 5\n"
  1504.                       " ---------\n\n"
  1505.                       " Pod ikonki TopazPropPL, Na ekran XHelvetica\n"
  1506.                       " 15 punktowa, zas jako czcionka systemowa\n"
  1507.                       " polecamy XENPL 13...\n\n\n\n\n\n\n\n\n\n\n"
  1508.                       " ...do tego wszystkiego mlode ziemniaczki saute,\n"
  1509.                       " kapustka gdzie niegdzie z groszkiem, oraz\n"
  1510.                       " renomowane wino spoldzielni Botwina\n"
  1511.                       " \"Janosik\" (limited edition!) z 1994 roku....\n\n"
  1512.                       " Wesolych Swiat!"
  1513.               )
  1514.              )
  1515.      )
  1516.   )
  1517.  
  1518.  
  1519.        (run "SYS:Prefs/LOCALE SAVE")    ; aktualne nastawy...
  1520.        (run "SYS:Prefs/INPUT SAVE")
  1521.        (run "SYS:Prefs/FONT SAVE")
  1522.  
  1523.  
  1524.       (if ( = (exists "ENVARC:Sys/STARE_PREFERENCJE" (noreq)) 2)
  1525.        (makedir "ENVARC:Sys/STARE_PREFERENCJE")
  1526.       )
  1527.  
  1528.         (if (> prefs 0)
  1529.          (if (exists "ENVARC:Sys/input.prefs" (noreq))
  1530.           (copyfiles
  1531.            (source "ENVARC:Sys/input.prefs")
  1532.            (dest   "ENVARC:Sys/STARE_PREFERENCJE")
  1533.           )
  1534.          )
  1535.         )
  1536.         (if(exists "ENVARC:Sys/locale.prefs" (noreq))
  1537.          (copyfiles
  1538.           (source "ENVARC:Sys/locale.prefs")
  1539.           (dest   "ENVARC:Sys/STARE_PREFERENCJE")
  1540.          )
  1541.         )
  1542.         (if(exists "ENVARC:Sys/font.prefs" (noreq))
  1543.          (copyfiles
  1544.           (source "ENVARC:Sys/font.prefs")
  1545.           (dest   "ENVARC:Sys/STARE_PREFERENCJE")
  1546.          )
  1547.         )
  1548.  
  1549.  
  1550.         (if (> prefs 0)
  1551.           (set Env_pat "#?")
  1552.           (set Env_pat "locale.prefs")
  1553.         )
  1554.  
  1555.         (set CMD ("RAM:UnLzX e -x >nil: Commodore/Prefs/Presets/Wariant%ld.lzx %s ENVARC:Sys/" prefs Env_pat))
  1556.         (run CMD)
  1557.  
  1558.  
  1559.     (if (= keymap 0)
  1560.         (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-USA")
  1561.         (run "c/ModPrefs ENVARC:Sys/input.prefs ENVARC:Sys/input.prefs AmigaPL-D")
  1562.     )
  1563.  
  1564.         (run "SYS:Prefs/LOCALE ENVARC:Sys/locale.prefs USE")
  1565.         (run "SYS:Prefs/INPUT ENVARC:Sys/input.prefs USE")
  1566.         (if (> prefs 0)
  1567.          (run "SYS:Prefs/FONT ENVARC:Sys/font.prefs USE")
  1568.         )
  1569.  
  1570.    )
  1571.   )
  1572.  
  1573. ;###########################################################################
  1574. ;## Instalacja - ENVARC
  1575. ;###########################################################################
  1576.  
  1577.   (if (= (exists "ENVARC:LocalePL/LocalePL" (noreq)) 0)
  1578.     (copyfiles
  1579.        (source "Commodore/Envarc")
  1580.        (dest "ENVARC:")
  1581.        (all)
  1582.     )
  1583.   )
  1584.  
  1585.  )
  1586. )
  1587. (complete 100)
  1588.  
  1589.  
  1590. ;###########################################################################
  1591. ;## Koncówka
  1592. ;###########################################################################
  1593.  
  1594.  
  1595. (set sys (cat (getassign 'sys') "WBStartup\""))
  1596. (set progs "FontPLPatch")
  1597. (set koncowka ":")
  1598. (if (bitand Dodatki 2)
  1599.     (
  1600.        (set progs (cat progs " i AssignWedge"))
  1601.        (set koncowka "y:")
  1602.     )
  1603. )
  1604.  
  1605. (if (> DOC_Type 0)
  1606.   (message "Gotowe!\n"
  1607.         "---------\n"
  1608.         "Teraz najlepiej \"zresetuj\" Amige, lub uruchom\n"
  1609.         "wlasnorecznie program"
  1610.         koncowka
  1611.    "\n"
  1612.         progs
  1613.         "\nz systemowego katalogu:\n\""
  1614.         sys
  1615.         "\noraz przeczytaj bardzo dokladnie zalaczona\n"
  1616.         "dokumentacje, umieszczona w katalogu:\n\""
  1617.         Dok_dest
  1618.    "\"\n\nLocalePL © 1994-1996 Marcin Orlowski\n"
  1619.         "MR SOFT / World Federation of Mad Hackers"
  1620.   )
  1621.   (message "\nGotowe!\n"
  1622.         "---------\n"
  1623.         "Teraz najlepiej \"zresetuj\" Amige, lub uruchom\n"
  1624.         "wlasnorecznie program"
  1625.         koncowka
  1626.    "\n"
  1627.         progs
  1628.         "\nz systemowego katalogu:\n\""
  1629.         sys
  1630.         "\n\nPoniewaz nie chciales instalowac dokumentacji,"
  1631.    "to poczytaj sobie teraz cos innego..."
  1632.    "\n\nLocalePL © 1994-1996 Marcin Orlowski\n"
  1633.         "MR SOFT / World Federation of Mad Hackers"
  1634.   )
  1635. )
  1636.  
  1637. (message "Wszelkie uwagi i sugestie na temat niniejszego\n"
  1638.         "pakietu oraz ewentualne, zauwazone bledy a takze\n"
  1639.          "oplaty licencyjne prosze przesylac\n"
  1640.          "z ponizszy adres:\n\n"
  1641.    "W.F.M.H. LocalePL\n"
  1642.         "ul. Radomska 38\n"
  1643.         "71-002  Szczecin\n\n"
  1644.         "SilverDream!'s BBS:  091-540431  (non-stop)\n\n"
  1645.         "Internet: carlos@felix.univ.szczecin.pl\n\n"
  1646.         "MR SOFT / World Federation of Mad Hackers"
  1647. )
  1648.  
  1649.  
  1650. (if (= (exists "SYS:Utilities/Multiview" (noreq)) 1)
  1651. (
  1652.  (set Show "run >nil: SYS:Utilities/Multiview ")
  1653.  (set Show_Guide 1)
  1654. )
  1655. (
  1656.  (set Show "run >nil: More ")
  1657.  (set Show_Guide 0)
  1658. )
  1659. )
  1660.  
  1661. (if(= Show_Guide 1)
  1662.  (
  1663.   (if(bitand DOC_Type 1)    (set Doc (cat (tackon Dok_dest "Dokumentacja/LocalePL.doc"))))
  1664.   (if(bitand DOC_Type 2)    (set Doc (cat (tackon Dok_dest "AmigaGuide/LocalePL.guide"))))
  1665.  )
  1666.  (
  1667.   (if(bitand DOC_Type 2)    (set Doc (cat (tackon Dok_dest "AmigaGuide/LocalePL.guide"))))
  1668.   (if(bitand DOC_Type 1)    (set Doc (cat (tackon Dok_dest "Dokumentacja/LocalePL.doc"))))
  1669.  )
  1670. )
  1671.  
  1672. (if
  1673.  (OR
  1674.   (OR
  1675.    (AND (bitand Doc_Type 1) (= Show_Guide 1))
  1676.    (AND (bitand Doc_Type 1) (= Show_Guide 0))
  1677.   )
  1678.   (AND (bitand Doc_Type 2) (= Show_Guide 1))
  1679.  )
  1680.  (run (cat Show Doc))
  1681. )
  1682.  
  1683.  
  1684.  
  1685. (run "c/FixTaskName2" (safe))
  1686. (if (= (exists "RAM:UnLzX" (noreq)) 1)
  1687.  (delete "RAM:UnLzX" (safe))
  1688. )
  1689.  
  1690. (run "c/WaitPort" (safe))
  1691. (delete "RAM:describe" (safe))
  1692. (delete "RAM:sync" (safe))
  1693. (delete "RAM:Info.bat" (safe))
  1694. (delete "RAM:Locale1.iff" (safe))
  1695. (delete "RAM:Locale2.iff" (safe))
  1696. (delete "RAM:Locale3.iff" (safe))
  1697. (delete "RAM:Locale4.iff" (safe))
  1698. (delete "RAM:Locale5.iff" (safe))
  1699. (delete "RAM:Locale6.iff" (safe))
  1700. (delete "RAM:Locale7.iff" (safe))
  1701. (delete "RAM:Locale8.iff" (safe))
  1702.  
  1703. (exit (QUIET))
  1704.